home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_29_popup - airbrush tool.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  2.4 KB  |  103 lines
  1. property pSpriteList, pMemberList, pPressed, pMySprite, pMyMember, pMyMember2, pMyMember3
  2. global gCast, gAirbrushMask, gAirbrushSize, gAirbrushShape
  3.  
  4. on beginSprite me
  5.   pMySprite = sprite(me.spriteNum)
  6.   pMyMember = pMySprite.memberNum
  7.   pMyMember2 = pMyMember - 1
  8.   pMyMember3 = pMyMember + 1
  9.   pMemberList = [:]
  10.   repeat with i in pSpriteList
  11.     addProp(pMemberList, i, sprite(i).member.name)
  12.   end repeat
  13.   hidePopup(me)
  14.   gAirbrushSize = 5
  15.   gAirbrushShape = #oval
  16.   if gCast = "32bit" then
  17.     gAirbrushMask = "soft brgb 5"
  18.   end if
  19. end
  20.  
  21. on mouseWithin me
  22.   set the memberNum of sprite pMySprite to pMyMember3
  23.   put "Click to select another airbrush type." into field "status"
  24. end
  25.  
  26. on mouseLeave me
  27.   set the memberNum of sprite pMySprite to pMyMember
  28.   put EMPTY into field "status"
  29. end
  30.  
  31. on mouseDown me
  32.   pPressed = 1
  33. end
  34.  
  35. on mouseUp me
  36.   set the memberNum of sprite pMySprite to pMyMember3
  37.   liftUp(me)
  38. end
  39.  
  40. on mouseUpOutSide me
  41.   liftUp(me)
  42. end
  43.  
  44. on liftUp me
  45.   pPressed = 0
  46.   hidePopup(me)
  47.   select(me)
  48. end
  49.  
  50. on exitFrame me
  51.   if pPressed then
  52.     showPopup(me)
  53.     s = the rollover
  54.     if pSpriteList.getOne(s) then
  55.       sprite(s).member = member(pMemberList.getProp(s)).number + 1
  56.     end if
  57.   end if
  58. end
  59.  
  60. on hidePopup me
  61.   repeat with i = 1 to pSpriteList.count
  62.     set the memberNum of sprite pMySprite to pMyMember
  63.     sprite(pSpriteList[i]).memberNum = 0
  64.   end repeat
  65. end
  66.  
  67. on showPopup me
  68.   repeat with i in pSpriteList
  69.     set the memberNum of sprite pMySprite to pMyMember2
  70.     sprite(i).member = member(pMemberList.getProp(i))
  71.   end repeat
  72. end
  73.  
  74. on select me
  75.   s = the rollover
  76.   if pSpriteList.getOne(s) then
  77.     set the memberNum of sprite pMySprite to member(pMemberList.getProp(s))
  78.     pMyMember = pMySprite.memberNum
  79.     pMyMember2 = pMyMember - 1
  80.     pMyMember3 = pMyMember + 1
  81.     gAirbrushSize = integer(pMemberList.getProp(s).word[3])
  82.     if pMemberList.getProp(s).word[1] = "sq" then
  83.       gAirbrushShape = #rect
  84.     else
  85.       if pMemberList.getProp(s).word[1] = "rnd" then
  86.         gAirbrushShape = #oval
  87.       else
  88.         if pMemberList.getProp(s).word[1] = "soft" then
  89.           gAirbrushShape = #oval
  90.           gAirbrushMask = pMemberList.getProp(s).word[1] && "brgb" && pMemberList.getProp(s).word[3]
  91.         end if
  92.       end if
  93.     end if
  94.     sendSprite(96, #turnMeOn)
  95.   end if
  96. end
  97.  
  98. on getPropertyDescriptionList me
  99.   list = [:]
  100.   addProp(list, #pSpriteList, [#comment: "Sprite List", #format: #list, #default: []])
  101.   return list
  102. end
  103.